home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -coverdisks- / 122a / simplefind / install < prev    next >
Text File  |  1999-02-05  |  12KB  |  407 lines
  1. ; $VER: Install 1.0 (21.11.98)
  2. ; Installation-Script of SimpleFind
  3.  
  4. ; ----- German string section -----
  5.  
  6. (set #language (getenv("language")))
  7. (if( <> (strlen #language) 0)
  8. (
  9.   (set @language #language)
  10. ))
  11.  
  12. (if (= @language "deutsch")
  13. (
  14. (set #wrongversion
  15. (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  16.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 43.3.\n\n"
  17.      "Bitte überprüfen Sie Ihre Konfiguration!"
  18. ))
  19.  
  20. (set #nocopyicon-text
  21. (cat "Das Programm IconCopy wurde nicht gefunden!\n"
  22.      "Es befindet sich normalerweise mit im SimpleFind Archiv."))
  23.  
  24. (set #welcome "Willkommen zur Installation von SimpleFind!")
  25. (set #kind-request "Soll SimpleFind in ein einziges Verzeichnis installiert werden (empfohlen)?")
  26. (set #singledir-request "Wohin soll SimpleFind installiert werden?\n(ein Verzeichnis 'SimpleFind' wird angelegt, wenn nötig)")
  27. (set #lang-request "Welche Sprachen sollen installiert werden?\n(Englisch ist eingebaut)");
  28. (set #guide-request "Welche Versionen der Dokumentation soll installiert werden?")
  29. (set #arexx-request "Sollen die mitgelieferten ARexx Skripte installiert werden?")
  30. (set #logos-request "Sollen die mitgelieferten Logos installiert werden?")
  31. (set #iconset-request "Welches Icon Set soll installiert werden?")
  32. (set #iconset-amwb "Alternativ MagicWB")
  33. (set #tbi-request "Soll das titlebar.image installiert werden?")
  34. (set #tbiold-request "Es wurde eine alte Version des titlebar.image gefunden. Soll es durch eine neuere ersetzt werden?")
  35. (set #copysf-request "Kopiere SimpleFind Dateien")
  36. (set #copyarexx-request "Kopiere ARexx Skripte")
  37. (set #copylogos-request "Kopiere Logos")
  38. (set #standarticon-text "Installiere Standart-4-Farb-Icons...")
  39. (set #mwbicon-text "Installiere MagicWB Icons...")
  40. (set #amwbicon-text "Installiere Alternativ MagicWB Icons...")
  41.  
  42. (set #startup-request
  43. (cat "Um SimpleFind leichter von der Shell aus zu starten, sollte ein "
  44.      "Pfad in der User-Startup auf das SimpleFind Verzeichnis eingerichtet werden."
  45.      "\n\nPath \"%s\" ADD\n\nSoll das Installationsprogramm diesen Vorgang tun?"))
  46.  
  47. )
  48.  
  49. ; ----- Spanish string section -----
  50.  
  51. (if (= @language "español")
  52. (
  53.  
  54. (set #wrongversion
  55. (cat "Tiene una versión antigua del programa 'Installer' "
  56.      "en su Amiga!\n\nEste Script necesita, al menos, la versión 43.3.\n\n"
  57.      "Por favor, verifique su configuración!"
  58. ))
  59.  
  60. (set #nocopyicon-text 
  61. (cat "No puedo encontrar el programa IconCopy!\n"
  62.      " Normalmente se entrega con el archivo de SimpleFind."))
  63.  
  64. (set #welcome "Bienvenido a la instalación de SimpleFind!")
  65. (set #kind-request "Quiere que SimpleFind se instale en un Subdirectorio? (recomendado)")
  66. (set #singledir-request "Donde quiere instalar SimpleFind?\n(Se creará un directorio llamado SimpleFind, si no existe)")
  67. (set #lang-request "Qué lenguajes desea instalar?\n(Ingles por defecto)");
  68. (set #guide-request "Qué documentación quiere instalar?")
  69. (set #arexx-request "Quiere instalar los Scripts ARexx incluidos?")
  70. (set #logos-request "Quiere instalar los logotipos incluidos?")
  71. (set #iconset-request "Qué set de iconos quieres instalar?")
  72. (set #iconset-amwb "MagicWB Alternatívos")
  73. (set #tbi-request "Quiere instalar la titlebar.image?")
  74. (set #tbiold-request "Intaller ha descubierto que hay una antigua versión de titlebar.image instalada en su sistema. Quiere reemplazarla con la nueva versión?")
  75. (set #copysf-request "Copiando Ficheros de SimpleFind")
  76. (set #copyarexx-request "Copiando ARexx Scripts")
  77. (set #copylogos-request "Copiando Logos")
  78. (set #standarticon-text "Instalando set standard de iconos (4 colores)")
  79. (set #mwbicon-text "Instalando iconos MagicWB")
  80. (set #amwbicon-text "Instalando iconos alternbatívos MagicWB")
  81.  
  82. (set #startup-request
  83. (cat "Para empezar SimpleFind facilmente desde una ventana Shell se debe especificar una ruta"
  84.      "en el fichero User-Startup.\n\nRuta \"%s\" ADD\n\nQuiere que Instaler haga"
  85.      "esto por usted?"))
  86. )
  87.  
  88. ; ----- English string section -----
  89.  
  90. (
  91. (set #wrongversion
  92. (cat "You have an old version of the program 'Installer' "
  93.      "on your Amiga!\n\nThe installation procedure needs at least Installer 43.3.\n\n"
  94.      "Please check your configuration!"
  95. ))
  96.  
  97. (set #nocopyicon-text 
  98. (cat "Couldn't find the program IconCopy!\n"
  99.      " Usually it is included within the SimpleFind archive."))
  100.  
  101. (set #welcome "Welcome to the the Installation of SimpleFind!")
  102. (set #kind-request "Should SimpleFind be installed in a single directory? (recommened)")
  103. (set #singledir-request "Where should SimpleFind be installed?\n(A directory called SimpleFind is created, if it doesn't exists)")
  104. (set #lang-request "Which languages should be installed?\n(english is built in)");
  105. (set #guide-request "Which documentations should be installed?")
  106. (set #arexx-request "Do you want to install the included ARexx Scripts?")
  107. (set #logos-request "Should the included logos be installed?")
  108. (set #iconset-request "Which icon set should be installed?")
  109. (set #iconset-amwb "Alternate MagicWB")
  110. (set #tbi-request "Should the titlebar.image be installed?")
  111. (set #tbiold-request "Intaller has discovered that there is an older version of the titlebar.image installed on your system. Should it replaced with a newer version?")
  112. (set #copysf-request "Copying SimpleFind files")
  113. (set #copyarexx-request "Copying ARexx Scripts")
  114. (set #copylogos-request "Copying Logos")
  115. (set #standarticon-text "Installing standart 4 color icons now...")
  116. (set #mwbicon-text "Installing MagicWB icons now...")
  117. (set #amwbicon-text "Installing alternate MagicWB icons now...")
  118.  
  119. (set #startup-request
  120. (cat "To start SimpleFind easily from Shell a path command should be"
  121.      "added in the User-Startup.\n\nPath \"%s\" ADD\n\nDo you want that"
  122.      "the installer do this for you?"))
  123.  
  124. )))
  125. ; ----------------------------------
  126.  
  127. ;(set @default-dest "RAM:")
  128.  
  129. (procedure P_SingleDrawer
  130.  (set @default-dest (askdir (prompt #singledir-request)
  131.                     (help @askdir-help)
  132.                     (default @default-dest)))
  133.  
  134.  (if (= (fileonly(@default-dest)) "SimpleFind")
  135.   (set @default-dest (pathonly(@default-dest))))
  136.  
  137.  (set #drawer (tackon @default-dest "SimpleFind"))
  138.  
  139.  (if (= (exists(#drawer)) 1)
  140.   (if (<> (fileonly(@default-dest)) "SimpleFind")
  141.    (abort("A programm called SimpleFind has been found but no SimpleFind drawer"))
  142.   )
  143.  )
  144.  
  145.  (complete 1)
  146.  
  147.  (set #lang (askoptions
  148.             (prompt #lang-request)
  149.             (help @askoptions-help)
  150.             (choices "\x1b[2pdeutsch" "español" "français" "norsk" "suomi" "svenska")))
  151.  
  152.  (complete 2)
  153.  
  154.  (set #guide (askoptions
  155.             (prompt #guide-request)
  156.             (help @askoptions-help)
  157.             (choices "\x1b[2pdeutsch" "english" "español")))
  158.  
  159.  (complete 3)
  160.  
  161.  (set #arexx (askbool
  162.              (prompt #arexx-request)
  163.              (help @askbool-help)
  164.              (default 1)))
  165.  
  166.  (complete 4)
  167.  
  168.  (set #logos (askbool
  169.              (prompt #logos-request)
  170.              (help @askbool-help)
  171.              (default 1)))
  172.  
  173.  (complete 5)
  174.  
  175.  (set #iconset (askchoice
  176.              (prompt #iconset-request)
  177.              (help @askchoice-help)
  178.              (choices "\x1b[2pStandart" "MagicWB" #iconset-amwb)))
  179.  
  180.  (complete 6)
  181.  
  182.  (if(= (exists("SYS:Classes/Images/titlebar.image")) 1 )
  183.  (
  184.   (set #tbi 0)
  185.  
  186.   (if(=(earlier "SYS:Classes/Images/titlebar.image" "SimpleFind/Classes/Images/titlebar.image")1)
  187.    (
  188.     (if( ( = (askbool
  189.             (prompt #tbiold-request)
  190.            (help @askbool-help)
  191.             (default 1))) 1)
  192.    (
  193.     (copylib (prompt "Copying titlebar.image")
  194.              (help @copylib-help)
  195.              (source "SimpleFind/Classes/Images/titlebar.image")
  196.              (dest "SYS:Classes/Images"))
  197.    ))
  198.   ))
  199.  )
  200.  (
  201.   (set #tbi (askbool
  202.             (prompt #tbi-request)
  203.             (default 1)
  204.             (help @askbool-help)))
  205.  ))
  206.  
  207.  (complete 7)
  208.  
  209.  (makedir #drawer)
  210.  
  211.  (complete 10)
  212.  
  213.  (copyfiles (prompt #copysf-request)
  214.           (help @copyfiles-help)
  215.           (source "SimpleFind")
  216.                (choices "ReadMe" "SimpleFind" "SimpleFindPrefs")
  217.           (dest #drawer)
  218.           (confirm))
  219.  
  220.  (complete 30)
  221.  
  222.  (if (<> 0 #lang)
  223.  (
  224.   (set #catdrawer (tackon #drawer "Catalogs"))
  225.   (makedir #catdrawer)
  226.  
  227.   (if (<> 0 (bitand #lang 1))
  228.    (copyfiles
  229.               (help @copyfiles-help)
  230.               (source "SimpleFind/Catalogs/deutsch")
  231.               (dest (tackon #catdrawer "deutsch"))
  232.               (all)
  233.               )
  234.   )
  235.   (if (<> 0 (bitand #lang 2))
  236.    (copyfiles
  237.               (help @copyfiles-help)
  238.               (source "SimpleFind/Catalogs/español")
  239.               (dest (tackon #catdrawer "español"))
  240.               (all)
  241.               )
  242.   )
  243.   (if (<> 0 (bitand #lang 4))
  244.    (copyfiles
  245.               (help @copyfiles-help)
  246.               (source "SimpleFind/Catalogs/français")
  247.               (dest (tackon #catdrawer "français"))
  248.               (all)
  249.               )
  250.   )
  251.   (if (<> 0 (bitand #lang 8))
  252.    (copyfiles
  253.               (help @copyfiles-help)
  254.               (source "SimpleFind/Catalogs/norsk")
  255.               (dest (tackon #catdrawer "norsk"))
  256.               (all)
  257.               )
  258.   )
  259.   (if (<> 0 (bitand #lang 16))
  260.    (copyfiles
  261.               (help @copyfiles-help)
  262.               (source "SimpleFind/Catalogs/suomi")
  263.               (dest (tackon #catdrawer "suomi"))
  264.               (all)
  265.               )
  266.   )
  267.   (if (<> 0 (bitand #lang 32))
  268.    (copyfiles
  269.               (help @copyfiles-help)
  270.               (source "SimpleFind/Catalogs/svenska")
  271.               (dest (tackon #catdrawer "svenska"))
  272.               (all)
  273.               )
  274.   )
  275.  ))
  276.  
  277.  (complete 40)
  278.  
  279.  (if (<> 0 #guide)
  280.  (
  281.   (set #guidedrawer (tackon #drawer "Help"))
  282.   (makedir #guidedrawer)
  283.  
  284.   (if (<> 0 (bitand #guide 1))
  285.    (copyfiles (help @copyfiles-help)
  286.               (source "SimpleFind/Help/deutsch/SimpleFind.guide")
  287.               (dest (tackon #guidedrawer "deutsch"))
  288.               )
  289.   )
  290.  
  291.   (if (<> 0 (bitand #guide 2))
  292.    (copyfiles
  293.               (help @copyfiles-help)
  294.               (source "SimpleFind/Help/english/SimpleFind.guide")
  295.               (dest (tackon #guidedrawer "english"))
  296.               )
  297.   )
  298.  
  299.   (if (<> 0 (bitand #guide 4))
  300.    (copyfiles (help @copyfiles-help)
  301.               (source "SimpleFind/Help/español/SimpleFind.guide")
  302.               (dest (tackon #guidedrawer "español"))
  303.               )
  304.   )
  305.  )
  306.  )
  307.  
  308.  (complete 55)
  309.  
  310.  
  311.  (if (<> 0 #arexx)
  312.  (
  313.   (copyfiles (prompt #copyarexx-request)
  314.              (help @copyfiles-help)
  315.              (source "SimpleFind/ARexx")
  316.              (dest (tackon #drawer "ARexx"))
  317.              (all)
  318.              (confirm)
  319.              (infos))
  320.  )
  321.  )
  322.  
  323.  (complete 65)
  324.  
  325.  (if (<> 0 #logos)
  326.  (
  327.   (copyfiles (prompt #copylogos-request)
  328.              (help @copyfiles-help)
  329.              (source "SimpleFind/Logos")
  330.              (dest (tackon #drawer "Logos"))
  331.              (all)
  332.              (confirm)
  333.              (infos))
  334.  )
  335.  )
  336.  
  337.  (complete 75)
  338.  
  339.  (if (<> 0 #tbi)
  340.  (
  341.    (set #tbidrawer (tackon #drawer "Classes/Images"))
  342.    (makedir #tbidrawer)
  343.    (copylib (prompt "Copying titlebar.image")
  344.             (help @copylib-help)
  345.             (source "SimpleFind/Classes/Images/titlebar.image")
  346.             (dest #tbidrawer))
  347.  
  348.  ))
  349.  
  350.  (complete 80)
  351.  
  352.  (if (= 0 #iconset)
  353.  (
  354.   (working #standarticon-text)
  355.   (execute ("iconinst_standart \"%s\"" #drawer))
  356.  )
  357.  (
  358.   (if (= 1 #iconset)
  359.   (
  360.    (working #mwbicon-text)
  361.    (execute ("iconinst_mwb \"%s\"" #drawer))
  362.   )
  363.   (
  364.    (working #amwbicon-text)
  365.    (execute ("iconinst_amwb \"%s\"" #drawer))
  366.   ))
  367.  ))
  368.  
  369.  (complete 95)
  370.  
  371.  
  372.  (startup "SimpleFind"
  373.     (prompt (#startup-request #drawer))
  374.     (command ("Path \"%s\" ADD" #drawer))
  375.     (help @startup-help))
  376.  
  377. )
  378.  
  379. (procedure P_Scattered
  380. )
  381.  
  382. (welcome #welcome)
  383.  
  384. (complete 0)
  385.  
  386. (if (<> (exists "c/IconCopy") 1)
  387. (
  388.  (abort #nocopyicon-text)
  389. ))
  390.  
  391. ;(set #kind (askbool (prompt #kind-request )
  392. ;                     (help @askbool-help)
  393. ;                     (default 1)
  394. ;            )
  395. ;)
  396.  
  397. ;(if (= #kind 1)
  398. ;(
  399.  (P_SingleDrawer)
  400. ;)
  401. ;(
  402. ; (P_Scattered)
  403. ;)
  404. ;)
  405.  
  406. (complete 100)
  407.